Исследование Наноструктур Методом Сильной Связи В Системе Mathematica